home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
17 Bit Software 6: Level 6
/
17 Bit - Level 6 (1998)(Epic Marketing)[!].iso
/
quartz
/
q1099.dms
/
q1099.adf
/
MathPlot
/
Macros
/
test9.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1997-04-10
|
657b
|
41 lines
/* test setmacro/savemacro/getmacro */
address "MPlot_ARexx"
options results
clear force
setmacro "a sin(x)"
setmacro "b _c+_d"
setmacro "c x"
setmacro "d 2*x"
savemacro "ram:TestOfMacro.mcr"
getmacro a
say "The definition of macro a is "result
setfunc "0 _b"
plot 0 normal /* to prove that it is 3*x */
/* test setconst/saveconst/getconst */
setconst "a pi"
setconst "b e"
setconst "c .3"
saveconst "ram:TestOfConst.con"
getconst b
say "The definition of constant b is "result
/* test savefunc */
setfunc "0 asin(x)+acos(x)"
savefunc "ram:TestOfFunc.fkt"
/* test saveiff */
/* no filename, a filerequester will appear */
screentofront
saveiff